## Script (Python) "createSample"
##title=Create "camera" sample
##bind container=container
##bind context=context
##bind namespace=
##bind script=script
##bind subpath=traverse_subpath
##parameters=

def createConcept(target, id, title):
    target.invokeFactory('Concept', id=id, title=title)
    return target[id]
    
portal = context.portal_url.getPortalObject()

t0 = createConcept(portal, '0', 'câmaras')

t0.setScopeNote('''qualquer aparelho ou dispositivo constituído basicamente de 
 uma espécie de caixa ou compartimento fechado, ou quase fechado, com uma 
 abertura pela qual raios luminosos provenientes de objetos exteriores são 
 captados (e, muitas vezes, devidamente refratados e refletidos), de modo a 
 formarem ou serem utilizados para produzir uma imagem ao incidirem sobre 
 anteparo ou superfície esp. preparada (Dicionário Houaiss da língua 
 portuguesa)''')

t01 = createConcept(t0, '01', 'câmaras estáticas')
t02 = createConcept(t0, '02', 'câmaras de imagens em movimento')
t03 = createConcept(t0, '03', 'câmaras estereoscópicas')
t03 = createConcept(t0, '04', 'câmaras subaquáticas')

t011 = createConcept(t01, '011', 'câmaras de cópia instantânea')
t011.setScopeNote('câmaras que produzem diretamente uma cópia acabada')
t011.setAltLabels(['câmaras Polaroid'])

t012 = createConcept(t01, '012', 'câmaras miniaturizadas')
t013 = createConcept(t01, '013', "câmaras 4'x5'")
t013.setScopeNote('câmaras com foco através da lente e com movimentos de báscula')
t013.setAltLabels(['câmaras de visão direta'])

t014 = createConcept(t01, '014', 'câmaras reflex')


t021 = createConcept(t02, '021', 'câmaras de televisão')
t022 = createConcept(t02, '022', 'câmaras cinematográficas')

t0121 = createConcept(t012,'0121', 'câmaras 35mm')

t0141 = createConcept(t014, '0141', 'câmaras monoreflex')
t0142 = createConcept(t014, '0142', 'câmaras reflex de duas objetivas')

t0221 = createConcept(t022, '0221', 'câmaras cinematográficas subaquáticas')

msg = "portal_status_message=Sample created."
return context.REQUEST.RESPONSE.redirect(
    '%s?%s' % (t0.absolute_url(), msg))
